home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / AMIGA.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  4.1 KB  |  80 lines
  1. rem ==============================================================
  2. rem == Interrupt $0B:                                           ==
  3. rem ==   AH=Funktionsnummer                                     ==
  4. rem ==                                                          ==
  5. rem == AH=1:  GetParamOffset                                    ==
  6. rem ==          => AL = JIntNummer                              ==
  7. rem ==          <= DI = Offset                                  ==
  8. rem ==          <= ES = Segment von Parameterspeicher           ==
  9. rem ==                                                          ==
  10. rem == AH=2:  AllocJanusMem                                     ==
  11. rem ==          => AL = Speichertyp                             ==
  12. rem ==          => BX = Anzahl der Bytes                        ==
  13. rem ==          <= BX = Offset auf Speicher                     ==
  14. rem ==                                                          ==
  15. rem == AH=3:  FreeJanusMem                                      ==
  16. rem ==          => AL = Speichertyp                             ==
  17. rem ==          => BX = Offset auf Speicher                     ==
  18. rem ==                                                          ==
  19. rem == AH=4:  SetParamOffset                                    ==
  20. rem ==          => AL = JIntNummer                              ==
  21. rem ==          => BX = Offset                                  ==
  22. rem ==                                                          ==
  23. rem == AH=5:  Nicht benutzt                                     ==
  24. rem == AH=6:  Nicht benutzt                                     ==
  25. rem ==                                                          ==
  26. rem == AH=7:  CallAmiga                                         ==
  27. rem ==          => AL = JIntNummer                              ==
  28. rem ==                                                          ==
  29. rem == AH=8:  WaitAmiga                                         ==
  30. rem ==          => AL = JIntNummer                              ==
  31. rem ==                                                          ==
  32. rem == AH=9:  CheckAmiga                                        ==
  33. rem ==          => AL = JIntNummer                              ==
  34. rem ==                                                          ==
  35. rem == AH=11: GetService                                        ==
  36. rem ==          => AL = Flags                                   ==
  37. rem ==          => CX = LocalID                                 ==
  38. rem ==          => DI = Offset von PCCustomer                   ==
  39. rem ==          => SI = AppID (2. Wort)                         ==
  40. rem ==          => DS = AppID (1. Wort)                         ==
  41. rem ==          => ES = Segment von FirstPCCustomer             ==
  42. rem ==          <= AL = Fehler (0 = Kein Fehler)                ==
  43. rem ==          <= DI = Offset auf ServiceData-Struktur         ==
  44. rem ==          <= ES = Segment von SD-Str.                     ==
  45. rem ==                                                          ==
  46. rem == AH=12: CallService                                       ==
  47. rem ==          => DI = Service                                 ==
  48. rem ==                                                          ==
  49. rem == AH=13: ReleaseService                                    ==
  50. rem ==          => DI = Service                                 ==
  51. rem ==                                                          ==
  52. rem == AH=15: LockService                                       ==
  53. rem ==          => DI = Service                                 ==
  54. rem ==                                                          ==
  55. rem == AH=16: UnLockService                                     ==
  56. rem ==          => DI = Service                                 ==
  57. rem ==                                                          ==
  58. rem ==============================================================
  59.  
  60. $INCLUDE "REGNAMES.INC"
  61. def seg = &hd000
  62. cls
  63.  
  64.  
  65. AL=21
  66. AH=7
  67. REG %AX,(AH*256)+AL
  68. CALL INTERRUPT &H0B
  69. ?"Interrupt 21 gesendet."
  70.  
  71. AL=21
  72. AH=8
  73. REG %AX,(AH*256)+AL
  74. ?"Warte auf Interrupt 21."
  75. CALL INTERRUPT &H0B
  76. ?"Interrupt 21 empfangen."
  77.  
  78. ?"<< Taste >>"
  79. END
  80.